home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 October / Pcwk1097.iso / REKLAMY / ATA-INT / 3220 / 3220.EXE / 3220.DXR / 00078_drive navig. btns and loop (i) v2.ls < prev    next >
Encoding:
Text File  |  1997-02-13  |  619 b   |  26 lines
  1. global gMode, gTrigger, gSweepHiliteTrigger, gDCAnimObj, gDONT_ANIMATE
  2.  
  3. on exitFrame
  4.   if gSweepHiliteTrigger = 1 then
  5.     set gSweepHiliteTrigger to 0
  6.     cursor(4)
  7.     if the MASTER_CHECK of gDCAnimObj <> 0 then
  8.       if the hilite of cast the MASTER_CHECK of gDCAnimObj = 0 then
  9.         cursor(4)
  10.         repeat with i in the CHECK_BOX_NUMS of gDCAnimObj
  11.           set the hilite of cast i to 0
  12.         end repeat
  13.         cursor(-1)
  14.       end if
  15.     end if
  16.     checkState(gDCAnimObj)
  17.     set gDONT_ANIMATE to 0
  18.     cursor(-1)
  19.   end if
  20.   if gMode then
  21.     set gTrigger to 1
  22.     btnJob4()
  23.   end if
  24.   go(the frame)
  25. end
  26.